VERSION 5.00
Begin VB.Form frmParse 
   BackColor       =   &H00FFFFFF&
   ClientHeight    =   7305
   ClientLeft      =   60
   ClientTop       =   345
   ClientWidth     =   10455
   ForeColor       =   &H00000000&
   Icon            =   "frmParse.frx":0000
   LinkTopic       =   "Form1"
   ScaleHeight     =   7305
   ScaleWidth      =   10455
   StartUpPosition =   1  'CenterOwner
   Begin VB.TextBox txtData 
      Appearance      =   0  'Flat
      Height          =   315
      Index           =   79
      Left            =   8640
      TabIndex        =   169
      Top             =   6060
      Width           =   1695
   End
   Begin VB.TextBox txtField 
      Appearance      =   0  'Flat
      Height          =   315
      Index           =   79
      Left            =   8040
      TabIndex        =   168
      Top             =   6060
      Width           =   615
   End
   Begin VB.TextBox txtData 
      Appearance      =   0  'Flat
      Height          =   315
      Index           =   78
      Left            =   8640
      TabIndex        =   167
      Top             =   5760
      Width           =   1695
   End
   Begin VB.TextBox txtField 
      Appearance      =   0  'Flat
      Height          =   315
      Index           =   78
      Left            =   8040
      TabIndex        =   166
      Top             =   5760
      Width           =   615
   End
   Begin VB.TextBox txtData 
      Appearance      =   0  'Flat
      Height          =   315
      Index           =   77
      Left            =   8640
      TabIndex        =   165
      Top             =   5460
      Width           =   1695
   End
   Begin VB.TextBox txtField 
      Appearance      =   0  'Flat
      Height          =   315
      Index           =   77
      Left            =   8040
      TabIndex        =   164
      Top             =   5460
      Width           =   615
   End
   Begin VB.TextBox txtData 
      Appearance      =   0  'Flat
      Height          =   315
      Index           =   76
      Left            =   8640
      TabIndex        =   163
      Top             =   5160
      Width           =   1695
   End
   Begin VB.TextBox txtField 
      Appearance      =   0  'Flat
      Height          =   315
      Index           =   76
      Left            =   8040
      TabIndex        =   162
      Top             =   5160
      Width           =   615
   End
   Begin VB.TextBox txtData 
      Appearance      =   0  'Flat
      Height          =   315
      Index           =   75
      Left            =   8640
      TabIndex        =   161
      Top             =   4860
      Width           =   1695
   End
   Begin VB.TextBox txtField 
      Appearance      =   0  'Flat
      Height          =   315
      Index           =   75
      Left            =   8040
      TabIndex        =   160
      Top             =   4860
      Width           =   615
   End
   Begin VB.TextBox txtData 
      Appearance      =   0  'Flat
      Height          =   315
      Index           =   74
      Left            =   8640
      TabIndex        =   159
      Top             =   4560
      Width           =   1695
   End
   Begin VB.TextBox txtField 
      Appearance      =   0  'Flat
      Height          =   315
      Index           =   74
      Left            =   8040
      TabIndex        =   158
      Top             =   4560
      Width           =   615
   End
   Begin VB.TextBox txtData 
      Appearance      =   0  'Flat
      Height          =   315
      Index           =   73
      Left            =   8640
      TabIndex        =   157
      Top             =   4260
      Width           =   1695
   End
   Begin VB.TextBox txtField 
      Appearance      =   0  'Flat
      Height          =   315
      Index           =   73
      Left            =   8040
      TabIndex        =   156
      Top             =   4260
      Width           =   615
   End
   Begin VB.TextBox txtData 
      Appearance      =   0  'Flat
      Height          =   315
      Index           =   72
      Left            =   8640
      TabIndex        =   155
      Top             =   3960
      Width           =   1695
   End
   Begin VB.TextBox txtField 
      Appearance      =   0  'Flat
      Height          =   315
      Index           =   72
      Left            =   8040
      TabIndex        =   154
      Top             =   3960
      Width           =   615
   End
   Begin VB.TextBox txtData 
      Appearance      =   0  'Flat
      Height          =   315
      Index           =   71
      Left            =   8640
      TabIndex        =   153
      Top             =   3660
      Width           =   1695
   End
   Begin VB.TextBox txtField 
      Appearance      =   0  'Flat
      Height          =   315
      Index           =   71
      Left            =   8040
      TabIndex        =   152
      Top             =   3660
      Width           =   615
   End
   Begin VB.TextBox txtData 
      Appearance      =   0  'Flat
      Height          =   315
      Index           =   70
      Left            =   8640
      TabIndex        =   151
      Top             =   3360
      Width           =   1695
   End
   Begin VB.TextBox txtField 
      Appearance      =   0  'Flat
      Height          =   315
      Index           =   70
      Left            =   8040
      TabIndex        =   150
      Top             =   3360
      Width           =   615
   End
   Begin VB.TextBox txtData 
      Appearance      =   0  'Flat
      Height          =   315
      Index           =   69
      Left            =   8640
      TabIndex        =   149
      Top             =   3060
      Width           =   1695
   End
   Begin VB.TextBox txtField 
      Appearance      =   0  'Flat
      Height          =   315
      Index           =   69
      Left            =   8040
      TabIndex        =   148
      Top             =   3060
      Width           =   615
   End
   Begin VB.TextBox txtData 
      Appearance      =   0  'Flat
      Height          =   315
      Index           =   68
      Left            =   8640
      TabIndex        =   147
      Top             =   2760
      Width           =   1695
   End
   Begin VB.TextBox txtField 
      Appearance      =   0  'Flat
      Height          =   315
      Index           =   68
      Left            =   8040
      TabIndex        =   146
      Top             =   2760
      Width           =   615
   End
   Begin VB.TextBox txtData 
      Appearance      =   0  'Flat
      Height          =   315
      Index           =   67
      Left            =   8640
      TabIndex        =   145
      Top             =   2460
      Width           =   1695
   End
   Begin VB.TextBox txtField 
      Appearance      =   0  'Flat
      Height          =   315
      Index           =   67
      Left            =   8040
      TabIndex        =   144
      Top             =   2460
      Width           =   615
   End
   Begin VB.TextBox txtData 
      Appearance      =   0  'Flat
      Height          =   315
      Index           =   66
      Left            =   8640
      TabIndex        =   143
      Top             =   2160
      Width           =   1695
   End
   Begin VB.TextBox txtField 
      Appearance      =   0  'Flat
      Height          =   315
      Index           =   66
      Left            =   8040
      TabIndex        =   142
      Top             =   2160
      Width           =   615
   End
   Begin VB.TextBox txtData 
      Appearance      =   0  'Flat
      Height          =   315
      Index           =   65
      Left            =   8640
      TabIndex        =   141
      Top             =   1860
      Width           =   1695
   End
   Begin VB.TextBox txtField 
      Appearance      =   0  'Flat
      Height          =   315
      Index           =   65
      Left            =   8040
      TabIndex        =   140
      Top             =   1860
      Width           =   615
   End
   Begin VB.TextBox txtData 
      Appearance      =   0  'Flat
      Height          =   315
      Index           =   64
      Left            =   8640
      TabIndex        =   139
      Top             =   1560
      Width           =   1695
   End
   Begin VB.TextBox txtField 
      Appearance      =   0  'Flat
      Height          =   315
      Index           =   64
      Left            =   8040
      TabIndex        =   138
      Top             =   1560
      Width           =   615
   End
   Begin VB.TextBox txtData 
      Appearance      =   0  'Flat
      Height          =   315
      Index           =   63
      Left            =   8640
      TabIndex        =   137
      Top             =   1260
      Width           =   1695
   End
   Begin VB.TextBox txtField 
      Appearance      =   0  'Flat
      Height          =   315
      Index           =   63
      Left            =   8040
      TabIndex        =   136
      Top             =   1260
      Width           =   615
   End
   Begin VB.TextBox txtData 
      Appearance      =   0  'Flat
      Height          =   315
      Index           =   62
      Left            =   8640
      TabIndex        =   135
      Top             =   960
      Width           =   1695
   End
   Begin VB.TextBox txtField 
      Appearance      =   0  'Flat
      Height          =   315
      Index           =   62
      Left            =   8040
      TabIndex        =   134
      Top             =   960
      Width           =   615
   End
   Begin VB.TextBox txtData 
      Appearance      =   0  'Flat
      Height          =   315
      Index           =   61
      Left            =   8640
      TabIndex        =   133
      Top             =   660
      Width           =   1695
   End
   Begin VB.TextBox txtField 
      Appearance      =   0  'Flat
      Height          =   315
      Index           =   61
      Left            =   8040
      TabIndex        =   132
      Top             =   660
      Width           =   615
   End
   Begin VB.TextBox txtData 
      Appearance      =   0  'Flat
      Height          =   315
      Index           =   60
      Left            =   8640
      TabIndex        =   131
      Top             =   360
      Width           =   1695
   End
   Begin VB.TextBox txtField 
      Appearance      =   0  'Flat
      Height          =   315
      Index           =   60
      Left            =   8040
      TabIndex        =   130
      Top             =   360
      Width           =   615
   End
   Begin VB.TextBox txtData 
      Appearance      =   0  'Flat
      Height          =   315
      Index           =   59
      Left            =   6000
      TabIndex        =   125
      Top             =   6060
      Width           =   1695
   End
   Begin VB.TextBox txtField 
      Appearance      =   0  'Flat
      Height          =   315
      Index           =   59
      Left            =   5400
      TabIndex        =   124
      Top             =   6060
      Width           =   615
   End
   Begin VB.TextBox txtData 
      Appearance      =   0  'Flat
      Height          =   315
      Index           =   58
      Left            =   6000
      TabIndex        =   123
      Top             =   5760
      Width           =   1695
   End
   Begin VB.TextBox txtField 
      Appearance      =   0  'Flat
      Height          =   315
      Index           =   58
      Left            =   5400
      TabIndex        =   122
      Top             =   5760
      Width           =   615
   End
   Begin VB.TextBox txtData 
      Appearance      =   0  'Flat
      Height          =   315
      Index           =   57
      Left            =   6000
      TabIndex        =   121
      Top             =   5460
      Width           =   1695
   End
   Begin VB.TextBox txtField 
      Appearance      =   0  'Flat
      Height          =   315
      Index           =   57
      Left            =   5400
      TabIndex        =   120
      Top             =   5460
      Width           =   615
   End
   Begin VB.TextBox txtData 
      Appearance      =   0  'Flat
      Height          =   315
      Index           =   56
      Left            =   6000
      TabIndex        =   119
      Top             =   5160
      Width           =   1695
   End
   Begin VB.TextBox txtField 
      Appearance      =   0  'Flat
      Height          =   315
      Index           =   56
      Left            =   5400
      TabIndex        =   118
      Top             =   5160
      Width           =   615
   End
   Begin VB.TextBox txtData 
      Appearance      =   0  'Flat
      Height          =   315
      Index           =   55
      Left            =   6000
      TabIndex        =   117
      Top             =   4860
      Width           =   1695
   End
   Begin VB.TextBox txtField 
      Appearance      =   0  'Flat
      Height          =   315
      Index           =   55
      Left            =   5400
      TabIndex        =   116
      Top             =   4860
      Width           =   615
   End
   Begin VB.TextBox txtData 
      Appearance      =   0  'Flat
      Height          =   315
      Index           =   54
      Left            =   6000
      TabIndex        =   115
      Top             =   4560
      Width           =   1695
   End
   Begin VB.TextBox txtField 
      Appearance      =   0  'Flat
      Height          =   315
      Index           =   54
      Left            =   5400
      TabIndex        =   114
      Top             =   4560
      Width           =   615
   End
   Begin VB.TextBox txtData 
      Appearance      =   0  'Flat
      Height          =   315
      Index           =   53
      Left            =   6000
      TabIndex        =   113
      Top             =   4260
      Width           =   1695
   End
   Begin VB.TextBox txtField 
      Appearance      =   0  'Flat
      Height          =   315
      Index           =   53
      Left            =   5400
      TabIndex        =   112
      Top             =   4260
      Width           =   615
   End
   Begin VB.TextBox txtData 
      Appearance      =   0  'Flat
      Height          =   315
      Index           =   52
      Left            =   6000
      TabIndex        =   111
      Top             =   3960
      Width           =   1695
   End
   Begin VB.TextBox txtField 
      Appearance      =   0  'Flat
      Height          =   315
      Index           =   52
      Left            =   5400
      TabIndex        =   110
      Top             =   3960
      Width           =   615
   End
   Begin VB.TextBox txtData 
      Appearance      =   0  'Flat
      Height          =   315
      Index           =   51
      Left            =   6000
      TabIndex        =   109
      Top             =   3660
      Width           =   1695
   End
   Begin VB.TextBox txtField 
      Appearance      =   0  'Flat
      Height          =   315
      Index           =   51
      Left            =   5400
      TabIndex        =   108
      Top             =   3660
      Width           =   615
   End
   Begin VB.TextBox txtData 
      Appearance      =   0  'Flat
      Height          =   315
      Index           =   50
      Left            =   6000
      TabIndex        =   107
      Top             =   3360
      Width           =   1695
   End
   Begin VB.TextBox txtField 
      Appearance      =   0  'Flat
      Height          =   315
      Index           =   50
      Left            =   5400
      TabIndex        =   106
      Top             =   3360
      Width           =   615
   End
   Begin VB.TextBox txtData 
      Appearance      =   0  'Flat
      Height          =   315
      Index           =   49
      Left            =   6000
      TabIndex        =   105
      Top             =   3060
      Width           =   1695
   End
   Begin VB.TextBox txtField 
      Appearance      =   0  'Flat
      Height          =   315
      Index           =   49
      Left            =   5400
      TabIndex        =   104
      Top             =   3060
      Width           =   615
   End
   Begin VB.TextBox txtData 
      Appearance      =   0  'Flat
      Height          =   315
      Index           =   48
      Left            =   6000
      TabIndex        =   103
      Top             =   2760
      Width           =   1695
   End
   Begin VB.TextBox txtField 
      Appearance      =   0  'Flat
      Height          =   315
      Index           =   48
      Left            =   5400
      TabIndex        =   102
      Top             =   2760
      Width           =   615
   End
   Begin VB.TextBox txtData 
      Appearance      =   0  'Flat
      Height          =   315
      Index           =   47
      Left            =   6000
      TabIndex        =   101
      Top             =   2460
      Width           =   1695
   End
   Begin VB.TextBox txtField 
      Appearance      =   0  'Flat
      Height          =   315
      Index           =   47
      Left            =   5400
      TabIndex        =   100
      Top             =   2460
      Width           =   615
   End
   Begin VB.TextBox txtData 
      Appearance      =   0  'Flat
      Height          =   315
      Index           =   46
      Left            =   6000
      TabIndex        =   99
      Top             =   2160
      Width           =   1695
   End
   Begin VB.TextBox txtField 
      Appearance      =   0  'Flat
      Height          =   315
      Index           =   46
      Left            =   5400
      TabIndex        =   98
      Top             =   2160
      Width           =   615
   End
   Begin VB.TextBox txtData 
      Appearance      =   0  'Flat
      Height          =   315
      Index           =   45
      Left            =   6000
      TabIndex        =   97
      Top             =   1860
      Width           =   1695
   End
   Begin VB.TextBox txtField 
      Appearance      =   0  'Flat
      Height          =   315
      Index           =   45
      Left            =   5400
      TabIndex        =   96
      Top             =   1860
      Width           =   615
   End
   Begin VB.TextBox txtData 
      Appearance      =   0  'Flat
      Height          =   315
      Index           =   44
      Left            =   6000
      TabIndex        =   95
      Top             =   1560
      Width           =   1695
   End
   Begin VB.TextBox txtField 
      Appearance      =   0  'Flat
      Height          =   315
      Index           =   44
      Left            =   5400
      TabIndex        =   94
      Top             =   1560
      Width           =   615
   End
   Begin VB.TextBox txtData 
      Appearance      =   0  'Flat
      Height          =   315
      Index           =   43
      Left            =   6000
      TabIndex        =   93
      Top             =   1260
      Width           =   1695
   End
   Begin VB.TextBox txtField 
      Appearance      =   0  'Flat
      Height          =   315
      Index           =   43
      Left            =   5400
      TabIndex        =   92
      Top             =   1260
      Width           =   615
   End
   Begin VB.TextBox txtData 
      Appearance      =   0  'Flat
      Height          =   315
      Index           =   42
      Left            =   6000
      TabIndex        =   91
      Top             =   960
      Width           =   1695
   End
   Begin VB.TextBox txtField 
      Appearance      =   0  'Flat
      Height          =   315
      Index           =   42
      Left            =   5400
      TabIndex        =   90
      Top             =   960
      Width           =   615
   End
   Begin VB.TextBox txtData 
      Appearance      =   0  'Flat
      Height          =   315
      Index           =   41
      Left            =   6000
      TabIndex        =   89
      Top             =   660
      Width           =   1695
   End
   Begin VB.TextBox txtField 
      Appearance      =   0  'Flat
      Height          =   315
      Index           =   41
      Left            =   5400
      TabIndex        =   88
      Top             =   660
      Width           =   615
   End
   Begin VB.TextBox txtData 
      Appearance      =   0  'Flat
      Height          =   315
      Index           =   40
      Left            =   6000
      TabIndex        =   87
      Top             =   360
      Width           =   1695
   End
   Begin VB.TextBox txtField 
      Appearance      =   0  'Flat
      Height          =   315
      Index           =   40
      Left            =   5400
      TabIndex        =   86
      Top             =   360
      Width           =   615
   End
   Begin VB.CommandButton cmdClose 
      Appearance      =   0  'Flat
      BackColor       =   &H00E0E0E0&
      Caption         =   "OK"
      Height          =   315
      Left            =   5640
      MaskColor       =   &H0080C0FF&
      Style           =   1  'Graphical
      TabIndex        =   83
      Top             =   6840
      UseMaskColor    =   -1  'True
      Width           =   1215
   End
   Begin VB.CommandButton cmdSave 
      Appearance      =   0  'Flat
      BackColor       =   &H00E0E0E0&
      Caption         =   "&Save"
      Height          =   315
      Left            =   3600
      MaskColor       =   &H0080C0FF&
      Style           =   1  'Graphical
      TabIndex        =   82
      Top             =   6840
      UseMaskColor    =   -1  'True
      Width           =   1215
   End
   Begin VB.TextBox txtData 
      Appearance      =   0  'Flat
      Height          =   315
      Index           =   39
      Left            =   3360
      TabIndex        =   81
      Top             =   6060
      Width           =   1695
   End
   Begin VB.TextBox txtField 
      Appearance      =   0  'Flat
      Height          =   315
      Index           =   39
      Left            =   2760
      TabIndex        =   80
      Top             =   6060
      Width           =   615
   End
   Begin VB.TextBox txtData 
      Appearance      =   0  'Flat
      Height          =   315
      Index           =   38
      Left            =   3360
      TabIndex        =   79
      Top             =   5760
      Width           =   1695
   End
   Begin VB.TextBox txtField 
      Appearance      =   0  'Flat
      Height          =   315
      Index           =   38
      Left            =   2760
      TabIndex        =   78
      Top             =   5760
      Width           =   615
   End
   Begin VB.TextBox txtData 
      Appearance      =   0  'Flat
      Height          =   315
      Index           =   37
      Left            =   3360
      TabIndex        =   77
      Top             =   5460
      Width           =   1695
   End
   Begin VB.TextBox txtField 
      Appearance      =   0  'Flat
      Height          =   315
      Index           =   37
      Left            =   2760
      TabIndex        =   76
      Top             =   5460
      Width           =   615
   End
   Begin VB.TextBox txtData 
      Appearance      =   0  'Flat
      Height          =   315
      Index           =   36
      Left            =   3360
      TabIndex        =   75
      Top             =   5160
      Width           =   1695
   End
   Begin VB.TextBox txtField 
      Appearance      =   0  'Flat
      Height          =   315
      Index           =   36
      Left            =   2760
      TabIndex        =   74
      Top             =   5160
      Width           =   615
   End
   Begin VB.TextBox txtData 
      Appearance      =   0  'Flat
      Height          =   315
      Index           =   35
      Left            =   3360
      TabIndex        =   73
      Top             =   4860
      Width           =   1695
   End
   Begin VB.TextBox txtField 
      Appearance      =   0  'Flat
      Height          =   315
      Index           =   35
      Left            =   2760
      TabIndex        =   72
      Top             =   4860
      Width           =   615
   End
   Begin VB.TextBox txtData 
      Appearance      =   0  'Flat
      Height          =   315
      Index           =   34
      Left            =   3360
      TabIndex        =   71
      Top             =   4560
      Width           =   1695
   End
   Begin VB.TextBox txtField 
      Appearance      =   0  'Flat
      Height          =   315
      Index           =   34
      Left            =   2760
      TabIndex        =   70
      Top             =   4560
      Width           =   615
   End
   Begin VB.TextBox txtData 
      Appearance      =   0  'Flat
      Height          =   315
      Index           =   33
      Left            =   3360
      TabIndex        =   69
      Top             =   4260
      Width           =   1695
   End
   Begin VB.TextBox txtField 
      Appearance      =   0  'Flat
      Height          =   315
      Index           =   33
      Left            =   2760
      TabIndex        =   68
      Top             =   4260
      Width           =   615
   End
   Begin VB.TextBox txtData 
      Appearance      =   0  'Flat
      Height          =   315
      Index           =   32
      Left            =   3360
      TabIndex        =   67
      Top             =   3960
      Width           =   1695
   End
   Begin VB.TextBox txtField 
      Appearance      =   0  'Flat
      Height          =   315
      Index           =   32
      Left            =   2760
      TabIndex        =   66
      Top             =   3960
      Width           =   615
   End
   Begin VB.TextBox txtData 
      Appearance      =   0  'Flat
      Height          =   315
      Index           =   31
      Left            =   3360
      TabIndex        =   65
      Top             =   3660
      Width           =   1695
   End
   Begin VB.TextBox txtField 
      Appearance      =   0  'Flat
      Height          =   315
      Index           =   31
      Left            =   2760
      TabIndex        =   64
      Top             =   3660
      Width           =   615
   End
   Begin VB.TextBox txtData 
      Appearance      =   0  'Flat
      Height          =   315
      Index           =   30
      Left            =   3360
      TabIndex        =   63
      Top             =   3360
      Width           =   1695
   End
   Begin VB.TextBox txtField 
      Appearance      =   0  'Flat
      Height          =   315
      Index           =   30
      Left            =   2760
      TabIndex        =   62
      Top             =   3360
      Width           =   615
   End
   Begin VB.TextBox txtData 
      Appearance      =   0  'Flat
      Height          =   315
      Index           =   29
      Left            =   3360
      TabIndex        =   61
      Top             =   3060
      Width           =   1695
   End
   Begin VB.TextBox txtField 
      Appearance      =   0  'Flat
      Height          =   315
      Index           =   29
      Left            =   2760
      TabIndex        =   60
      Top             =   3060
      Width           =   615
   End
   Begin VB.TextBox txtData 
      Appearance      =   0  'Flat
      Height          =   315
      Index           =   28
      Left            =   3360
      TabIndex        =   59
      Top             =   2760
      Width           =   1695
   End
   Begin VB.TextBox txtField 
      Appearance      =   0  'Flat
      Height          =   315
      Index           =   28
      Left            =   2760
      TabIndex        =   58
      Top             =   2760
      Width           =   615
   End
   Begin VB.TextBox txtData 
      Appearance      =   0  'Flat
      Height          =   315
      Index           =   27
      Left            =   3360
      TabIndex        =   57
      Top             =   2460
      Width           =   1695
   End
   Begin VB.TextBox txtField 
      Appearance      =   0  'Flat
      Height          =   315
      Index           =   27
      Left            =   2760
      TabIndex        =   56
      Top             =   2460
      Width           =   615
   End
   Begin VB.TextBox txtData 
      Appearance      =   0  'Flat
      Height          =   315
      Index           =   26
      Left            =   3360
      TabIndex        =   55
      Top             =   2160
      Width           =   1695
   End
   Begin VB.TextBox txtField 
      Appearance      =   0  'Flat
      Height          =   315
      Index           =   26
      Left            =   2760
      TabIndex        =   54
      Top             =   2160
      Width           =   615
   End
   Begin VB.TextBox txtData 
      Appearance      =   0  'Flat
      Height          =   315
      Index           =   25
      Left            =   3360
      TabIndex        =   53
      Top             =   1860
      Width           =   1695
   End
   Begin VB.TextBox txtField 
      Appearance      =   0  'Flat
      Height          =   315
      Index           =   25
      Left            =   2760
      TabIndex        =   52
      Top             =   1860
      Width           =   615
   End
   Begin VB.TextBox txtData 
      Appearance      =   0  'Flat
      Height          =   315
      Index           =   24
      Left            =   3360
      TabIndex        =   51
      Top             =   1560
      Width           =   1695
   End
   Begin VB.TextBox txtField 
      Appearance      =   0  'Flat
      Height          =   315
      Index           =   24
      Left            =   2760
      TabIndex        =   50
      Top             =   1560
      Width           =   615
   End
   Begin VB.TextBox txtData 
      Appearance      =   0  'Flat
      Height          =   315
      Index           =   23
      Left            =   3360
      TabIndex        =   49
      Top             =   1260
      Width           =   1695
   End
   Begin VB.TextBox txtField 
      Appearance      =   0  'Flat
      Height          =   315
      Index           =   23
      Left            =   2760
      TabIndex        =   48
      Top             =   1260
      Width           =   615
   End
   Begin VB.TextBox txtData 
      Appearance      =   0  'Flat
      Height          =   315
      Index           =   22
      Left            =   3360
      TabIndex        =   47
      Top             =   960
      Width           =   1695
   End
   Begin VB.TextBox txtField 
      Appearance      =   0  'Flat
      Height          =   315
      Index           =   22
      Left            =   2760
      TabIndex        =   46
      Top             =   960
      Width           =   615
   End
   Begin VB.TextBox txtData 
      Appearance      =   0  'Flat
      Height          =   315
      Index           =   21
      Left            =   3360
      TabIndex        =   45
      Top             =   660
      Width           =   1695
   End
   Begin VB.TextBox txtField 
      Appearance      =   0  'Flat
      Height          =   315
      Index           =   21
      Left            =   2760
      TabIndex        =   44
      Top             =   660
      Width           =   615
   End
   Begin VB.TextBox txtData 
      Appearance      =   0  'Flat
      Height          =   315
      Index           =   20
      Left            =   3360
      TabIndex        =   43
      Top             =   360
      Width           =   1695
   End
   Begin VB.TextBox txtField 
      Appearance      =   0  'Flat
      Height          =   315
      Index           =   20
      Left            =   2760
      TabIndex        =   42
      Top             =   360
      Width           =   615
   End
   Begin VB.TextBox txtData 
      Appearance      =   0  'Flat
      Height          =   315
      Index           =   19
      Left            =   720
      TabIndex        =   39
      Top             =   6060
      Width           =   1695
   End
   Begin VB.TextBox txtField 
      Appearance      =   0  'Flat
      Height          =   315
      Index           =   19
      Left            =   120
      TabIndex        =   38
      Top             =   6060
      Width           =   615
   End
   Begin VB.TextBox txtData 
      Appearance      =   0  'Flat
      Height          =   315
      Index           =   18
      Left            =   720
      TabIndex        =   37
      Top             =   5760
      Width           =   1695
   End
   Begin VB.TextBox txtField 
      Appearance      =   0  'Flat
      Height          =   315
      Index           =   18
      Left            =   120
      TabIndex        =   36
      Top             =   5760
      Width           =   615
   End
   Begin VB.TextBox txtData 
      Appearance      =   0  'Flat
      Height          =   315
      Index           =   17
      Left            =   720
      TabIndex        =   35
      Top             =   5460
      Width           =   1695
   End
   Begin VB.TextBox txtField 
      Appearance      =   0  'Flat
      Height          =   315
      Index           =   17
      Left            =   120
      TabIndex        =   34
      Top             =   5460
      Width           =   615
   End
   Begin VB.TextBox txtData 
      Appearance      =   0  'Flat
      Height          =   315
      Index           =   16
      Left            =   720
      TabIndex        =   33
      Top             =   5160
      Width           =   1695
   End
   Begin VB.TextBox txtField 
      Appearance      =   0  'Flat
      Height          =   315
      Index           =   16
      Left            =   120
      TabIndex        =   32
      Top             =   5160
      Width           =   615
   End
   Begin VB.TextBox txtData 
      Appearance      =   0  'Flat
      Height          =   315
      Index           =   15
      Left            =   720
      TabIndex        =   31
      Top             =   4860
      Width           =   1695
   End
   Begin VB.TextBox txtField 
      Appearance      =   0  'Flat
      Height          =   315
      Index           =   15
      Left            =   120
      TabIndex        =   30
      Top             =   4860
      Width           =   615
   End
   Begin VB.TextBox txtData 
      Appearance      =   0  'Flat
      Height          =   315
      Index           =   14
      Left            =   720
      TabIndex        =   29
      Top             =   4560
      Width           =   1695
   End
   Begin VB.TextBox txtField 
      Appearance      =   0  'Flat
      Height          =   315
      Index           =   14
      Left            =   120
      TabIndex        =   28
      Top             =   4560
      Width           =   615
   End
   Begin VB.TextBox txtData 
      Appearance      =   0  'Flat
      Height          =   315
      Index           =   13
      Left            =   720
      TabIndex        =   27
      Top             =   4260
      Width           =   1695
   End
   Begin VB.TextBox txtField 
      Appearance      =   0  'Flat
      Height          =   315
      Index           =   13
      Left            =   120
      TabIndex        =   26
      Top             =   4260
      Width           =   615
   End
   Begin VB.TextBox txtData 
      Appearance      =   0  'Flat
      Height          =   315
      Index           =   12
      Left            =   720
      TabIndex        =   25
      Top             =   3960
      Width           =   1695
   End
   Begin VB.TextBox txtField 
      Appearance      =   0  'Flat
      Height          =   315
      Index           =   12
      Left            =   120
      TabIndex        =   24
      Top             =   3960
      Width           =   615
   End
   Begin VB.TextBox txtData 
      Appearance      =   0  'Flat
      Height          =   315
      Index           =   11
      Left            =   720
      TabIndex        =   23
      Top             =   3660
      Width           =   1695
   End
   Begin VB.TextBox txtField 
      Appearance      =   0  'Flat
      Height          =   315
      Index           =   11
      Left            =   120
      TabIndex        =   22
      Top             =   3660
      Width           =   615
   End
   Begin VB.TextBox txtData 
      Appearance      =   0  'Flat
      Height          =   315
      Index           =   10
      Left            =   720
      TabIndex        =   21
      Top             =   3360
      Width           =   1695
   End
   Begin VB.TextBox txtField 
      Appearance      =   0  'Flat
      Height          =   315
      Index           =   10
      Left            =   120
      TabIndex        =   20
      Top             =   3360
      Width           =   615
   End
   Begin VB.TextBox txtData 
      Appearance      =   0  'Flat
      Height          =   315
      Index           =   9
      Left            =   720
      TabIndex        =   19
      Top             =   3060
      Width           =   1695
   End
   Begin VB.TextBox txtField 
      Appearance      =   0  'Flat
      Height          =   315
      Index           =   9
      Left            =   120
      TabIndex        =   18
      Top             =   3060
      Width           =   615
   End
   Begin VB.TextBox txtData 
      Appearance      =   0  'Flat
      Height          =   315
      Index           =   8
      Left            =   720
      TabIndex        =   17
      Top             =   2760
      Width           =   1695
   End
   Begin VB.TextBox txtField 
      Appearance      =   0  'Flat
      Height          =   315
      Index           =   8
      Left            =   120
      TabIndex        =   16
      Top             =   2760
      Width           =   615
   End
   Begin VB.TextBox txtData 
      Appearance      =   0  'Flat
      Height          =   315
      Index           =   7
      Left            =   720
      TabIndex        =   15
      Top             =   2460
      Width           =   1695
   End
   Begin VB.TextBox txtField 
      Appearance      =   0  'Flat
      Height          =   315
      Index           =   7
      Left            =   120
      TabIndex        =   14
      Top             =   2460
      Width           =   615
   End
   Begin VB.TextBox txtData 
      Appearance      =   0  'Flat
      Height          =   315
      Index           =   6
      Left            =   720
      TabIndex        =   13
      Top             =   2160
      Width           =   1695
   End
   Begin VB.TextBox txtField 
      Appearance      =   0  'Flat
      Height          =   315
      Index           =   6
      Left            =   120
      TabIndex        =   12
      Top             =   2160
      Width           =   615
   End
   Begin VB.TextBox txtData 
      Appearance      =   0  'Flat
      Height          =   315
      Index           =   5
      Left            =   720
      TabIndex        =   11
      Top             =   1860
      Width           =   1695
   End
   Begin VB.TextBox txtField 
      Appearance      =   0  'Flat
      Height          =   315
      Index           =   5
      Left            =   120
      TabIndex        =   10
      Top             =   1860
      Width           =   615
   End
   Begin VB.TextBox txtData 
      Appearance      =   0  'Flat
      Height          =   315
      Index           =   4
      Left            =   720
      TabIndex        =   9
      Top             =   1560
      Width           =   1695
   End
   Begin VB.TextBox txtField 
      Appearance      =   0  'Flat
      Height          =   315
      Index           =   4
      Left            =   120
      TabIndex        =   8
      Top             =   1560
      Width           =   615
   End
   Begin VB.TextBox txtData 
      Appearance      =   0  'Flat
      Height          =   315
      Index           =   3
      Left            =   720
      TabIndex        =   7
      Top             =   1260
      Width           =   1695
   End
   Begin VB.TextBox txtField 
      Appearance      =   0  'Flat
      Height          =   315
      Index           =   3
      Left            =   120
      TabIndex        =   6
      Top             =   1260
      Width           =   615
   End
   Begin VB.TextBox txtData 
      Appearance      =   0  'Flat
      Height          =   315
      Index           =   2
      Left            =   720
      TabIndex        =   5
      Top             =   960
      Width           =   1695
   End
   Begin VB.TextBox txtField 
      Appearance      =   0  'Flat
      Height          =   315
      Index           =   2
      Left            =   120
      TabIndex        =   4
      Top             =   960
      Width           =   615
   End
   Begin VB.TextBox txtData 
      Appearance      =   0  'Flat
      Height          =   315
      Index           =   1
      Left            =   720
      TabIndex        =   3
      Top             =   660
      Width           =   1695
   End
   Begin VB.TextBox txtField 
      Appearance      =   0  'Flat
      Height          =   315
      Index           =   1
      Left            =   120
      TabIndex        =   2
      Top             =   660
      Width           =   615
   End
   Begin VB.TextBox txtData 
      Appearance      =   0  'Flat
      Height          =   315
      Index           =   0
      Left            =   720
      TabIndex        =   1
      Top             =   360
      Width           =   1695
   End
   Begin VB.TextBox txtField 
      Appearance      =   0  'Flat
      Height          =   315
      Index           =   0
      Left            =   120
      TabIndex        =   0
      Top             =   360
      Width           =   615
   End
   Begin VB.Label lblLastPage 
      BackColor       =   &H00FFFFFF&
      Caption         =   ">>"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000080FF&
      Height          =   195
      Left            =   6180
      TabIndex        =   175
      ToolTipText     =   "Last Page"
      Top             =   6480
      Width           =   315
   End
   Begin VB.Label lblFirstPage 
      BackColor       =   &H00FFFFFF&
      Caption         =   "<<"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000080FF&
      Height          =   195
      Left            =   3960
      TabIndex        =   174
      ToolTipText     =   "First Page"
      Top             =   6480
      Width           =   315
   End
   Begin VB.Label lblTotFields 
      BackColor       =   &H00FFFFFF&
      ForeColor       =   &H000080FF&
      Height          =   255
      Left            =   1080
      TabIndex        =   173
      Top             =   6420
      Width           =   675
   End
   Begin VB.Label Label1 
      BackColor       =   &H00FFFFFF&
      Caption         =   "Total Fields:"
      Height          =   255
      Left            =   120
      TabIndex        =   172
      Top             =   6420
      Width           =   855
   End
   Begin VB.Label lblNext 
      BackColor       =   &H00FFFFFF&
      Caption         =   "Next >"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000080FF&
      Height          =   195
      Left            =   5400
      TabIndex        =   171
      Top             =   6480
      Width           =   675
   End
   Begin VB.Label lblPrev 
      Alignment       =   1  'Right Justify
      BackColor       =   &H00FFFFFF&
      Caption         =   "< Prev"
      BeginProperty Font 
         Name            =   "MS Sans Serif"
         Size            =   8.25
         Charset         =   0
         Weight          =   700
         Underline       =   0   'False
         Italic          =   0   'False
         Strikethrough   =   0   'False
      EndProperty
      ForeColor       =   &H000080FF&
      Height          =   195
      Left            =   4380
      TabIndex        =   170
      Top             =   6480
      Width           =   675
   End
   Begin VB.Line Line3 
      BorderColor     =   &H000080FF&
      BorderWidth     =   2
      X1              =   7860
      X2              =   7860
      Y1              =   360
      Y2              =   6360
   End
   Begin VB.Label lblData 
      Alignment       =   2  'Center
      BackColor       =   &H00FFFFFF&
      Caption         =   "Data"
      Height          =   255
      Index           =   3
      Left            =   8640
      TabIndex        =   129
      Top             =   120
      Width           =   1695
   End
   Begin VB.Label lblFieldNum 
      Alignment       =   2  'Center
      BackColor       =   &H00FFFFFF&
      Caption         =   "Field #"
      Height          =   255
      Index           =   3
      Left            =   8100
      TabIndex        =   128
      Top             =   120
      Width           =   495
   End
   Begin VB.Label lblData 
      Alignment       =   2  'Center
      BackColor       =   &H00FFFFFF&
      Caption         =   "Data"
      Height          =   255
      Index           =   2
      Left            =   6000
      TabIndex        =   127
      Top             =   120
      Width           =   1695
   End
   Begin VB.Label lblFieldNum 
      Alignment       =   2  'Center
      BackColor       =   &H00FFFFFF&
      Caption         =   "Field #"
      Height          =   255
      Index           =   2
      Left            =   5460
      TabIndex        =   126
      Top             =   120
      Width           =   495
   End
   Begin VB.Line Line2 
      BorderColor     =   &H000080FF&
      BorderWidth     =   2
      X1              =   5220
      X2              =   5220
      Y1              =   360
      Y2              =   6360
   End
   Begin VB.Label lblData 
      Alignment       =   2  'Center
      BackColor       =   &H00FFFFFF&
      Caption         =   "Data"
      Height          =   255
      Index           =   1
      Left            =   3360
      TabIndex        =   85
      Top             =   120
      Width           =   1695
   End
   Begin VB.Label lblFieldNum 
      Alignment       =   2  'Center
      BackColor       =   &H00FFFFFF&
      Caption         =   "Field #"
      Height          =   255
      Index           =   1
      Left            =   2820
      TabIndex        =   84
      Top             =   120
      Width           =   495
   End
   Begin VB.Line Line1 
      BorderColor     =   &H000080FF&
      BorderWidth     =   2
      X1              =   2580
      X2              =   2580
      Y1              =   360
      Y2              =   6360
   End
   Begin VB.Label lblData 
      Alignment       =   2  'Center
      BackColor       =   &H00FFFFFF&
      Caption         =   "Data"
      Height          =   255
      Index           =   0
      Left            =   720
      TabIndex        =   41
      Top             =   120
      Width           =   1695
   End
   Begin VB.Label lblFieldNum 
      Alignment       =   2  'Center
      BackColor       =   &H00FFFFFF&
      Caption         =   "Field #"
      Height          =   255
      Index           =   0
      Left            =   180
      TabIndex        =   40
      Top             =   120
      Width           =   495
   End
End
Attribute VB_Name = "frmParse"
Attribute VB_GlobalNameSpace = False
Attribute VB_Creatable = False
Attribute VB_PredeclaredId = True
Attribute VB_Exposed = False
'---------------------------------------------------------------------------------------
' Procedure : WriteData()
' DateTime  : 10/12/2005
' Modified  : 6/09/06 Added ability to view more fields
' Purpose   : Writes the Parsed fields and data to the form.
'---------------------------------------------------------------------------------------
'
Public Sub WriteData(ByVal intStart As Integer)
    
    Dim i As Integer
    Dim intEnd As Integer
    
    Call ClearForm
    
    With frmDebug.g_clsDebugParser
        
        intEnd = IIf(intStart + 79 > .TotalFields - 1, .TotalFields - 1, intStart + 79)
        
        'Loop through total fields and write to text boxes
        For i = intStart To intEnd
            
            txtField(i - intStart) = .Field(i)
            If .Field(i) = "188" Or .Field(i) = "411" Then
                txtData(i - intStart) = "[LABEL BUFFER]"
            Else
                txtData(i - intStart) = .Data(i)
            End If
        Next
    End With
    
End Sub
'---------------------------------------------------------------------------------------
' Procedure : cmdClose_Click()
' DateTime  : 10/12/2005
' Purpose   : Clears the form and hides.
'---------------------------------------------------------------------------------------
'
Private Sub cmdClose_Click()

    Me.Hide
    
End Sub
'---------------------------------------------------------------------------------------
' Procedure : ClearForm()
' DateTime  : 10/12/2005
' Purpose   : Clears the form.
'---------------------------------------------------------------------------------------
'
Private Sub ClearForm()

    Dim i As Integer
    
    For i = 0 To 79
        txtField(i) = ""
        txtData(i) = ""
    Next
    
End Sub
'---------------------------------------------------------------------------------------
' Procedure : cmdSave_Click()
' DateTime  : 10/12/2005
' Purpose   : Rebuild the input transaction and hides form.
'---------------------------------------------------------------------------------------
'
Private Sub cmdSave_Click()
    frmDebug.txtTransIn = ReBuildTrans
    Me.Hide
End Sub

Private Sub Form_Activate()
    
    Call WriteData(g_intDebugStart)
    Call SetPrevNext

End Sub

Private Sub lblFirstPage_Click()
    
    g_intDebugStart = 0
    Call WriteData(g_intDebugStart)
    Call SetPrevNext

End Sub

Private Sub lblLastPage_Click()
    
    g_intDebugStart = ((frmDebug.g_clsDebugParser.TotalFields - 1) \ 80) * 80
    Call WriteData(g_intDebugStart)
    Call SetPrevNext

End Sub

Private Sub lblNext_Click()
    
    g_intDebugStart = g_intDebugStart + 80
    Call WriteData(g_intDebugStart)
    Call SetPrevNext

End Sub

Private Sub lblPrev_Click()
    
    g_intDebugStart = g_intDebugStart - 80
    Call WriteData(g_intDebugStart)
    Call SetPrevNext
    
End Sub

'---------------------------------------------------------------------------------------
' Procedure : txtData_DblClick()
' DateTime  : 10/12/2005
' Purpose   : Dbl clicked text box shows data in Message box. If it's a label buffer it
'             shows the data on frmBuffer.
'---------------------------------------------------------------------------------------
'
Private Sub txtData_DblClick(Index As Integer)
    If txtField(Index) = "188" Or txtField(Index) = "411" Then
        frmBuffer.Show vbModeless, Me
        frmBuffer.txtBuffer = frmDebug.g_clsDebugParser.Data(Index)
    Else
        MsgBox txtData(Index)
    End If
End Sub
'---------------------------------------------------------------------------------------
' Procedure : txtData_MouseMove()
' DateTime  : 10/12/2005
' Purpose   : Mouse-over text box shows data in ToolTipText.
'---------------------------------------------------------------------------------------
'
Private Sub txtData_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
    txtData(Index).ToolTipText = txtData(Index)
End Sub
'---------------------------------------------------------------------------------------
' Procedure : ReBuildTrans()
' DateTime  : 10/12/2005
' Purpose   : Function rebuilds input transaction from data entered on form.
'---------------------------------------------------------------------------------------
'
Private Function ReBuildTrans() As String

    Dim i As Integer
    Dim strTrans As String
    
    strTrans = ""
    
    For i = 0 To 79
        If txtField(i) <> "" Then
            strTrans = strTrans + txtField(i) + ","
            strTrans = strTrans + Chr(34) + txtData(i) + Chr(34)
        End If
    Next
    
    'Add 99,""
    strTrans = strTrans + "99," + Chr(34) + Chr(34)
        
    ReBuildTrans = strTrans

End Function
'---------------------------------------------------------------------------------------
' Procedure : txtField_MouseMove()
' DateTime  : 10/12/2005
' Purpose   : Mouse-over text box shows data in ToolTipText.
'---------------------------------------------------------------------------------------
'
Private Sub txtField_MouseMove(Index As Integer, Button As Integer, Shift As Integer, X As Single, Y As Single)
    txtField(Index).ToolTipText = txtField(Index)
End Sub

Private Sub SetPrevNext()

    lblPrev.Enabled = IIf(g_intDebugStart >= 80, True, False)
    lblFirstPage.Enabled = IIf(g_intDebugStart >= 80, True, False)
    lblNext.Enabled = IIf(g_intDebugStart + 79 < frmDebug.g_clsDebugParser.TotalFields - 1, True, False)
    lblLastPage.Enabled = IIf(g_intDebugStart + 79 < frmDebug.g_clsDebugParser.TotalFields - 1, True, False)

End Sub
